    open "MNEMONICS.A";
    onerror 'any goto :badload;

    for file in catalog
      {
      open file as LSF OK;
      onerror 'any goto :badload;
      save file OK;
      onerror 'any goto :badload;
      };


:badload
    dialog 10 10 17 60
      {
      string 2 2   "Couldn't load the file because of GS/OS error ";
      hex2   2 30  'GSOSerror;
      }
    stop;
